|
68
|
I have a hierarchy and I need to filter only root items that match, with thier childs
with thisform.ComboBox1
.LinesAtRoot = -1
.FilterInclude = 3
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterType = 240
.Filter = "R1"
endwith
with .Items
h = .AddItem("R1")
.InsertItem(h,Null,"C1")
.InsertItem(h,Null,"C2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("R2")
.InsertItem(h,Null,"C1")
.InsertItem(h,Null,"C2")
endwith
.ApplyFilter
endwith
|
|
66
|
I have a hierarchy and I need to filter only parent items that match, including thier childs
with thisform.ComboBox1
.LinesAtRoot = -1
.FilterInclude = 1
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterType = 240
.Filter = "R1"
endwith
with .Items
h = .AddItem("R1")
.InsertItem(h,Null,"C1")
.InsertItem(h,Null,"C2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("R2")
.InsertItem(h,Null,"C1")
.InsertItem(h,Null,"C2")
endwith
.ApplyFilter
endwith
|
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
with thisform.ComboBox1
.BeginUpdate
.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
.HeaderAppearance = 4
.DrawGridLines = -1
.GridLineStyle = 32
with .Columns
.Add("Item")
with .Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = .F.
.FormatColumn = "1 index ``"
endwith
endwith
with .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
endwith
.EndUpdate
endwith
|
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work
with thisform.ComboBox1
.BeginUpdate
.Style = 2
.HeaderVisible = .F.
.AutoSearch = .T.
.AutoDropDown = .T.
.IntegralHeight = .T.
.Columns.Add("Default").AutoSearch = 1
with .Items
.AddItem("This is a bit of text")
.AddItem("This is a another text")
endwith
.EndUpdate
endwith
|
|
94
|
I can't scroll to the end of the data. What can I do
with thisform.ComboBox1
.ScrollBySingleLine = .T.
.DrawGridLines = -2
.Columns.Add("Column")
with .Items
.DefaultItem = .AddItem(0)
.ItemHeight(0) = 13
endwith
.PutItems(.GetItems(0))
with .Items
.DefaultItem = .AddItem(1)
.ItemHeight(0) = 26
endwith
.PutItems(.GetItems(0))
with .Items
.DefaultItem = .AddItem(2)
.ItemHeight(0) = 36
endwith
.PutItems(.GetItems(0))
with .Items
.DefaultItem = .AddItem(3)
.ItemHeight(0) = 48
endwith
.PutItems(.GetItems(0))
endwith
|
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button
with thisform.ComboBox1
.BeginUpdate
.LabelHeight = 40
.ScrollWidth = 0
.ScrollHeight = 0
.DropDownButtonWidth = 40
.EndUpdate
endwith
|
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
with thisform.ComboBox1
.BeginUpdate
.Columns.Add("Item").DisplayFilterButton = .T.
with .Columns.Add("Pos")
.AllowSizing = .F.
.AllowSort = .F.
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
endwith
with .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
endwith
.FilterBarFont = .Font
.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = 2067 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
with .Columns.Item(0)
.FilterType = 240
.Filter = "Item A|Item B"
endwith
.ApplyFilter
.EndUpdate
endwith
|
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it
with thisform.ComboBox1
.BeginUpdate
.ColumnAutoResize = .F.
rs = CreateObject("ADODB.Recordset")
with rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
endwith
.DataSource = rs
.Value = 10311
with .Items
.EnsureVisibleItem(.FocusItem)
endwith
.EndUpdate
endwith
|
|
146
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
with thisform.ComboBox1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
.Object.Background(324) = 0x1000000
.Object.Background(325) = 0x2000000
.Object.Background(327) = 0x3000000
.Object.Background(404) = RGB(240,240,240)
.Object.Background(276) = RGB(240,240,240)
.Object.Background(511) = RGB(240,240,240) && BackgroundPartEnum.exScrollHoverAll Or BackgroundPartEnum.exDateScrollThumb
.Columns.Add("S").Width = 32
.Columns.Add("Level 1").LevelKey = 1
.Columns.Add("Level 2").LevelKey = 1
.Columns.Add("Level 3").LevelKey = 1
.Columns.Add("E1").Width = 32
.Columns.Add("E2").Width = 32
.Columns.Add("E3").Width = 32
.Columns.Add("E4").Width = 32
.ColumnAutoResize = .F.
endwith
|
|
119
|
I've seen that the width of the tooltip is variable. Can I make it larger
with thisform.ComboBox1
.ToolTipWidth = 328
.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
endwith
|
|
2
|
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control
with thisform.ComboBox1
.Columns.Add("ColumnName")
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
endwith
|
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection
*** DropUp event - Occurs when the drop-down portion of the control is hidden. ***
LPARAMETERS nop
with thisform.ComboBox1
.Value = ""
endwith
*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
with thisform.ComboBox1
DEBUGOUT( "You selected: " )
DEBUGOUT( .Value )
endwith
with thisform.ComboBox1
.BeginUpdate
.Style = 2
.HeaderVisible = .F.
.AutoSearch = .T.
.AutoDropDown = .T.
.IntegralHeight = .T.
.Columns.Add("Default").AutoSearch = 1
with .Items
.AddItem("This is a bit of text")
.AddItem("This is a another text")
.DefaultItem = .InsertItem(Null,Null,"")
.ItemPosition(0) = 0
.SortableItem(0) = .F.
endwith
.EndUpdate
endwith
|
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)
with thisform.ComboBox1
.BeginUpdate
.Columns.Add("Column")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.DefaultItem = .ItemByIndex(1)
.SelectItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
561
|
How I can programmatically select a row (method 2)
with thisform.ComboBox1
.BeginUpdate
.Columns.Add("Column")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
endwith
.Value = "Item 2"
.EndUpdate
endwith
|
|
88
|
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns
with thisform.ComboBox1
.CountLockedColumns = 1
.BackColorLock = RGB(240,240,240)
.ColumnAutoResize = .F.
.Columns.Add("Locked").Width = 128
.Columns.Add("Un-Locked 1").Width = 128
.Columns.Add("Un-Locked 2").Width = 128
.Columns.Add("Un-Locked 3").Width = 128
with .Items
.DefaultItem = .AddItem("locked")
.CellCaption(0,1) = "unlocked"
endwith
endwith
|
|
299
|
How do I vertically align a cell
with thisform.ComboBox1
.DrawGridLines = -2
.Columns.Add("MultipleLine").Def(16) = .F.
.Columns.Add("VAlign")
with .Items
h = .AddItem("This is a bit of long text that should break the line")
.DefaultItem = h
.CellCaption(0,1) = "top"
.DefaultItem = h
.CellVAlignment(0,1) = 0
h = .AddItem("This is a bit of long text that should break the line")
.DefaultItem = h
.CellCaption(0,1) = "middle"
.DefaultItem = h
.CellVAlignment(0,1) = 1
h = .AddItem("This is a bit of long text that should break the line")
.DefaultItem = h
.CellCaption(0,1) = "bottom"
.DefaultItem = h
.CellVAlignment(0,1) = 2
endwith
endwith
|
|
84
|
How do I use my own icons for my radio buttons
with thisform.ComboBox1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Object.RadioImage(0) = 1
.Object.RadioImage(1) = 2
.Columns.Add("Radio").Def(1) = .T.
with .Items
.AddItem("Radio 1")
.DefaultItem = .AddItem("Radio 2")
.CellState(0,0) = 1
.AddItem("Radio 3")
endwith
endwith
|
|
83
|
How do I use my own icons for checkbox cells
with thisform.ComboBox1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Object.CheckImage(0) = 1
.Object.CheckImage(1) = 2
.Columns.Add("Check").Def(0) = .T.
with .Items
.AddItem("Check 1")
.DefaultItem = .AddItem("Check 2")
.CellState(0,0) = 1
endwith
endwith
|
|
479
|
How do I unselect/deselect the item (Simple style)
with thisform.ComboBox1
.BeginUpdate
.Style = 0
.Columns.Add("Def")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
endwith
.SearchColumnIndex = 0
.Value = "Item 2"
with .Items
.DefaultItem = .FocusItem
.SelectItem(0) = .F.
endwith
.EndUpdate
endwith
|
|
478
|
How do I unselect/deselect the item (DropDownList style)
with thisform.ComboBox1
.BeginUpdate
.Style = 1
.Columns.Add("Def")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
endwith
.SearchColumnIndex = 0
.Value = "Item 2"
with .Items
.DefaultItem = .FocusItem
.SelectItem(0) = .F.
endwith
.EndUpdate
endwith
|
|
477
|
How do I unselect/deselect the item (DropDown style)
with thisform.ComboBox1
.BeginUpdate
.Style = 1
.Columns.Add("Def")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
endwith
.SearchColumnIndex = 0
.Value = "Item 2"
with .Items
.DefaultItem = .FocusItem
.SelectItem(0) = .F.
endwith
.EndUpdate
endwith
|
|
288
|
How do I unselect an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = h
.SelectItem(0) = .F.
endwith
endwith
|
|
155
|
How do I underline the numbers greater than a value
with thisform.ComboBox1
.ConditionalFormats.Add("%0 >= 10").Underline = .T.
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
endwith
|
|
244
|
How do I underline an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
.DefaultItem = .AddItem("underline")
.ItemUnderline(0) = .T.
endwith
endwith
|
|
245
|
How do I underline a cell or an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
.DefaultItem = .AddItem("gets <u>underline</u> only a portion of text")
.CellCaptionFormat(0,0) = 1
endwith
endwith
|
|
246
|
How do I underline a cell
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
.DefaultItem = .AddItem("underline")
.CellUnderline(0,0) = .T.
endwith
endwith
|
|
325
|
How do I turn off the auto complete feature
with thisform.ComboBox1
.AutoComplete = .F.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
328
|
How do I specify the width of the drop down window
with thisform.ComboBox1
.Object.WidthList() = 100
.AllowSizeGrip = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
327
|
How do I specify the minimum width of the drop down window
with thisform.ComboBox1
.MinWidthList = 100
.AllowSizeGrip = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
329
|
How do I specify the minimum height of the drop down window
with thisform.ComboBox1
.MinHeightList = 100
.AllowSizeGrip = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
92
|
How do I specify the indentation of the child items relative to their parents
with thisform.ComboBox1
.LinesAtRoot = 1
.Indent = 11
.Columns.Add("Column")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2")
.InsertItem(h,Null,"Child")
endwith
endwith
|
|
330
|
How do I specify the height of the drop down window
with thisform.ComboBox1
.Object.HeightList() = 400
.MinWidthList = 100
.AllowSizeGrip = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
338
|
How do I specify the height of the control's label
with thisform.ComboBox1
.LabelHeight = 34
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
93
|
How do I specify the column where the tree lines / hierarchy are shown
with thisform.ComboBox1
.LinesAtRoot = 1
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
with .Items
h = .AddItem("Root 1.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 2.1")
.CellCaption(0,1) = "Child 2.2"
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 2.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
endwith
endwith
|
|
483
|
How do I sort the index column as numeric
*** InsertItem event - Occurs after a new item has been inserted to Items collection. ***
LPARAMETERS Item
with thisform.ComboBox1
with .Items
.DefaultItem = Item
.CellData(0,1) = .ItemToIndex(Item)
endwith
endwith
with thisform.ComboBox1
.BeginUpdate
.DrawGridLines = -1
.ColumnAutoResize = .T.
.ShowFocusRect = .F.
.SingleEdit = .T.
with .Columns.Add("Next")
.Def(48) = 4
.Def(52) = 4
endwith
with .Columns.Add("Index")
.AllowSizing = .F.
.Width = 48
.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
.Def(17) = 1
.SortType = 5
.Position = 0
endwith
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
.AddItem("Item 6")
.AddItem("Item 7")
.AddItem("Item 8")
.AddItem("Item 9")
.AddItem("Item 10")
endwith
.EndUpdate
endwith
|
|
229
|
How do I sort the child items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.SortChildren(h,0,.F.)
endwith
endwith
|
|
79
|
How do I sort descending a column, and put the sorting icon in the column's header
with thisform.ComboBox1
.Columns.Add("Column")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
endwith
.Columns.Item(0).SortOrder = 2
endwith
|
|
78
|
How do I sort ascending a column, and put the sorting icon in the column's header
with thisform.ComboBox1
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Columns.Item(0).SortOrder = 1
endwith
|
|
72
|
How do I sort a column by numbers
with thisform.ComboBox1
.Columns.Add("desc").SortType = 1
with .Items
.AddItem(1)
.AddItem(5)
.AddItem(10)
.SortChildren(0,0,.F.)
endwith
endwith
|
|
116
|
How do I show the tooltip quicker
with thisform.ComboBox1
.ToolTipDelay = 1
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
endwith
|
|
181
|
How do I show or hide the sorting icons, but still need sorting
with thisform.ComboBox1
.Columns.Add("Sorted").SortOrder = 1
.Columns.Item(0).DisplaySortIcon = .F.
endwith
|
|
194
|
How do I show buttons for all cells in the column
with thisform.ComboBox1
with .Columns.Add("Button")
.Def(2) = .T.
.Def(3) = .T.
endwith
.Items.AddItem(" Button 1 ")
.Items.AddItem(" Button 2 ")
endwith
|
|
193
|
How do I show buttons for all cells in the column
with thisform.ComboBox1
.Columns.Add("Button").Def(2) = .T.
.Items.AddItem(0)
.Items.AddItem(1)
endwith
|
|
109
|
How do I show alternate rows in different background color
with thisform.ComboBox1
.BackColorAlternate = RGB(240,240,240)
.Columns.Add("Column")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
endwith
endwith
|
|
559
|
How do I set an extra data for each item
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
with thisform.ComboBox1
i = .ItemFromPoint(-1,-1,c,hit)
DEBUGOUT( i )
DEBUGOUT( .Items.ItemData(i) )
endwith
with thisform.ComboBox1
.BeginUpdate
.Columns.Add("Default")
with .Items
.DefaultItem = .AddItem("method 1")
.ItemData(0) = "your extra data of method 1"
.InsertItem(0,"your extra data of method 2","method 2")
endwith
with .Items
.DefaultItem = .AddItem("method 3")
.ItemData(0) = "your extra data of method 3"
endwith
.EndUpdate
endwith
|
|
286
|
How do I select an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = h
.SelectItem(0) = .T.
endwith
endwith
|
|
347
|
How do I select a value
with thisform.ComboBox1
.IntegralHeight = .T.
.LinesAtRoot = 1
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
with .Items
h = .AddItem("Root 1.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 2.1")
.CellCaption(0,1) = "Child 2.2"
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 2.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
endwith
.Object.Select(1) = "Root 1.2"
endwith
|
|
348
|
How do I select a value
with thisform.ComboBox1
.IntegralHeight = .T.
.LinesAtRoot = 1
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
with .Items
h = .AddItem("Root 1.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
.DefaultItem = .InsertItem(h,Null,"Child 2.1")
.CellCaption(0,1) = "Child 2.2"
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2.1")
.DefaultItem = h
.CellCaption(0,1) = "Root 2.2"
.DefaultItem = .InsertItem(h,Null,"Child 1.1")
.CellCaption(0,1) = "Child 1.2"
endwith
.Value = "Root 1.1"
endwith
|
|
466
|
How do I select a NULL/empty value
with thisform.ComboBox1
.BeginUpdate
.Style = 2
.Columns.Add("Items")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.DefaultItem = .InsertItem(Null,Null,"")
.ItemPosition(0) = 0
.SortableItem(0) = .F.
endwith
.Value = ""
.EndUpdate
endwith
|
|
114
|
How do I search case sensitive, using your incremental search feature
with thisform.ComboBox1
.AutoSearch = .T.
.ASCIILower = ""
with .Columns
.Add("exStartWith").AutoSearch = 0
.Add("exContains").AutoSearch = 1
endwith
with .Items
.DefaultItem = .AddItem("text")
.CellCaption(0,1) = "another text"
endwith
with .Items
.DefaultItem = .AddItem("text")
.CellCaption(0,1) = "another text"
endwith
endwith
|
|
262
|
How do I retrieve the focused item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .FocusItem
.ItemBold(0) = .T.
endwith
endwith
|
|
345
|
How do I remove the drop down's border
with thisform.ComboBox1
.DropDownBorder = 0
endwith
|
|
69
|
How do I remove the control's border
with thisform.ComboBox1
.Appearance = 0
endwith
|
|
451
|
How do I prevent scrolling the control's data after user does the sort
with thisform.ComboBox1
.EnsureOnSort = .F.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.Columns.Item(0).SortOrder = 1
endwith
|
|
585
|
How do I prevent changing the cell's state ( check-box state )
*** CellStateChanging event - Fired before cell's state is about to be changed. ***
LPARAMETERS Cell, NewState
with thisform.ComboBox1
with .Items
NewState = .CellState(Null,Cell)
endwith
endwith
with thisform.ComboBox1
.BeginUpdate
.LinesAtRoot = -1
with .Columns.Add("P1")
.Def(0) = .T.
.PartialCheck = .T.
endwith
with .Columns.Add("P2")
.Def(0) = .T.
.PartialCheck = .T.
endwith
with .Items
h = .AddItem("Root")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
.EndUpdate
endwith
|
|
77
|
How do I perform my own/custom sort, using my extra strings
with thisform.ComboBox1
.Columns.Add("desc").SortType = 5
with .Items
.DefaultItem = .AddItem("A")
.CellData(0,0) = "C"
.DefaultItem = .AddItem("B")
.CellData(0,0) = "B"
.DefaultItem = .AddItem("C")
.CellData(0,0) = "A"
.SortChildren(0,0,.F.)
endwith
endwith
|
|
76
|
How do I perform my own/custom sort, using my extra numbers
with thisform.ComboBox1
.Columns.Add("desc").SortType = 5
with .Items
.DefaultItem = .AddItem(0)
.CellData(0,0) = 2
.DefaultItem = .AddItem(1)
.CellData(0,0) = 1
.DefaultItem = .AddItem(2)
.CellData(0,0) = 0
.SortChildren(0,0,.F.)
endwith
endwith
|
|
82
|
How do I perform my own sorting when user clicks the column's header
with thisform.ComboBox1
.SortOnClick = 1
.Columns.Add("Column")
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
endwith
|
|
334
|
How do I lock or make read-only the control
with thisform.ComboBox1
.Locked = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
331
|
How do I let user to resize the drop down window, at runtime
with thisform.ComboBox1
.AllowSizeGrip = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
332
|
How do I let user to resize only the width of the drop down window, at runtime
with thisform.ComboBox1
.AllowSizeGrip = .T.
.AllowVResize = .F.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
333
|
How do I let user to resize only the height of the drop down window, at runtime
with thisform.ComboBox1
.AllowSizeGrip = .T.
.AllowHResize = .F.
.MinWidthList = 100
.MinHeightList = 100
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
117
|
How do I let the tooltip being displayed longer
with thisform.ComboBox1
.ToolTipPopDelay = 10000
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
endwith
|
|
153
|
How do I highlight in italic the numbers greater than a value
with thisform.ComboBox1
.ConditionalFormats.Add("%0 >= 10").Italic = .T.
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
endwith
|
|
154
|
How do I highlight in italic the numbers greater than a value
with thisform.ComboBox1
.ConditionalFormats.Add("%0 >= 10").StrikeOut = .T.
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
endwith
|
|
152
|
How do I highlight in bold the numbers greater than a value
with thisform.ComboBox1
.ConditionalFormats.Add("%0 >= 10").Bold = .T.
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
endwith
|
|
71
|
How do I hide the control's header bar
with thisform.ComboBox1
.HeaderVisible = .F.
endwith
|
|
258
|
How do I get the parent item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .ItemParent(.ItemChild(h))
.ItemBold(0) = .T.
endwith
endwith
|
|
232
|
How do I get the number or count of items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
with .Items
.AddItem(.ItemCount)
endwith
endwith
|
|
261
|
How do I get the number or count of child items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.AddItem(.ChildCount(h))
endwith
endwith
|
|
339
|
How do I get the handle of the drop down window
with thisform.ComboBox1
.Columns.Add(thisform.ComboBox1.hWndDropDown)
endwith
|
|
263
|
How do I get the handle of the cell
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.CellBold(Null,.ItemCell(h,0)) = .T.
endwith
endwith
|
|
257
|
How do I get the first child item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .ItemChild(h)
.ItemBold(0) = .T.
endwith
endwith
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
with thisform.ComboBox1
.BeginUpdate
with .Columns.Add("Date")
.SortType = 2
.DisplayFilterButton = .T.
.DisplayFilterPattern = .F.
.DisplayFilterDate = .T.
.FilterList = 1296 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
endwith
with .Columns.Add("DateTime")
.SortType = 3
.DisplayFilterButton = .T.
.DisplayFilterPattern = .F.
.FilterList = 1296 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
endwith
with .Columns.Add("Time")
.SortType = 4
.DisplayFilterButton = .T.
.DisplayFilterPattern = .F.
.FilterList = 1296 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
.FormatColumn = "time(value)"
endwith
with .Columns.Add("Numeric")
.SortType = 1
.DisplayFilterButton = .T.
.FilterList = 1296 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
endwith
with .Columns.Add("String")
.DisplayFilterButton = .T.
.FilterList = 1296 && FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
endwith
with .Items
h = .AddItem({^2010-1-27})
.DefaultItem = h
.CellCaption(0,1) = {^2010-1-27 10:00:00}
.DefaultItem = h
.CellCaption(0,2) = .CellCaption(h,1)
.DefaultItem = h
.CellCaption(0,3) = 1
.DefaultItem = h
.CellCaption(0,4) = .CellCaption(h,3)
h = .AddItem({^2011-1-27})
.DefaultItem = h
.CellCaption(0,1) = {^2011-1-27 9:00:00}
.DefaultItem = h
.CellCaption(0,2) = .CellCaption(h,1)
.DefaultItem = h
.CellCaption(0,3) = 11
.DefaultItem = h
.CellCaption(0,4) = .CellCaption(h,3)
h = .AddItem({^2010-11-2})
.DefaultItem = h
.CellCaption(0,1) = {^2010-11-2 9:00:00}
.DefaultItem = h
.CellCaption(0,2) = .CellCaption(h,1)
.DefaultItem = h
.CellCaption(0,3) = 2
.DefaultItem = h
.CellCaption(0,4) = .CellCaption(h,3)
endwith
.Columns.Item("DateTime").DisplayFilterDate = .F.
.EndUpdate
endwith
|
|
96
|
How do I get ride of the rectangle arround focused item
with thisform.ComboBox1
.ShowFocusRect = .F.
.Columns.Add("Column")
.Items.AddItem(0)
.Items.AddItem(1)
endwith
|
|
470
|
How do I get notified once the user changes the Filter For field
*** EditChange event - Fired when the user has taken an action that may have altered text in an edit control. ***
LPARAMETERS ColIndex
with thisform.ComboBox1
DEBUGOUT( "ColIndex: " )
DEBUGOUT( ColIndex )
DEBUGOUT( "Label: " )
DEBUGOUT( .EditText(0) )
DEBUGOUT( "FilterFor: " )
DEBUGOUT( .EditText(-1) )
endwith
with thisform.ComboBox1
.BeginUpdate
.FilterForVisible = .T.
.FilterForBackColor = RGB(240,240,240)
.IntegralHeight = .T.
.Columns.Add("Default")
with .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
endwith
.EndUpdate
endwith
|
|
547
|
How do I get a list of interfaces the object implemenets
with thisform.ComboBox1
.BeginUpdate
.ColumnAutoResize = .F.
with CreateObject("DAO.DBEngine.120")
rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
endwith
DEBUGOUT( CreateObject("Exontrol.PropertiesList").Interfaces(rs).Interfaces(rs) )
.DataSource = rs
.Value = 10248
.EndUpdate
endwith
|
|
287
|
How do I find the selected item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = h
.SelectItem(0) = .T.
.DefaultItem = .SelectedItem(0)
.ItemBold(0) = .T.
endwith
endwith
|
|
294
|
How do I find the index of the item based on its handle
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .ItemByIndex(.ItemToIndex(h))
.ItemBold(0) = .T.
endwith
endwith
|
|
293
|
How do I find the handle of the item based on its index
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .ItemByIndex(1)
.ItemBold(0) = .T.
endwith
endwith
|
|
297
|
How do I find an item based on a path
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.DefaultItem = .InsertItem(h,Null,"Child 2")
.ItemData(0) = 1234
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .FindPath("Root 1\Child 1")
.ItemBold(0) = .T.
endwith
endwith
|
|
296
|
How do I find an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
.DefaultItem = .FindItem("Child 2",0)
.ItemBold(0) = .T.
endwith
endwith
|
|
107
|
How do I filter programatically the control
with thisform.ComboBox1
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterType = 3
.Filter = "Item*"
endwith
.Items.AddItem("Item 1")
.Items.AddItem("")
.Items.AddItem("Item 2")
.ApplyFilter
endwith
|
|
63
|
How do I filter for items that match exactly the specified string
with thisform.ComboBox1
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterType = 240
.Filter = "Item 1"
endwith
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
.Items.AddItem("Item 3")
.ApplyFilter
endwith
|
|
234
|
How do I expand or collapse an item
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
endwith
endwith
|
|
123
|
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
with thisform.ComboBox1
.ExpandOnSearch = .T.
.LinesAtRoot = -1
.AutoSearch = .T.
.Columns.Add("Column").AutoSearch = 1
with .Items
.InsertItem(.InsertItem(.AddItem("text"),Null,"some text"),Null,"another text")
.InsertItem(.InsertItem(.AddItem("text"),Null,"some text"),Null,"another text")
endwith
endwith
|
|
260
|
How do I enumerate the visible items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2")
.DefaultItem = .FirstVisibleItem
.ItemBold(0) = .T.
.DefaultItem = .NextVisibleItem(.FirstVisibleItem)
.ItemBold(0) = .T.
endwith
endwith
|
|
259
|
How do I enumerate the siblings items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2")
.DefaultItem = .NextSiblingItem(.FirstVisibleItem)
.ItemBold(0) = .T.
.DefaultItem = .PrevSiblingItem(.NextSiblingItem(.FirstVisibleItem))
.ItemBold(0) = .T.
endwith
endwith
|
|
256
|
How do I enumerate the root items
with thisform.ComboBox1
.Columns.Add("Default")
with .Items
h = .AddItem("Root 1")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = h
.ExpandItem(0) = .T.
h = .AddItem("Root 2")
.InsertItem(h,Null,"Child 1")
.InsertItem(h,Null,"Child 2")
.DefaultItem = .RootItem(0)
.ItemBold(0) = .T.
.DefaultItem = .RootItem(1)
.ItemUnderline(0) = .T.
endwith
endwith
|
|
40
|
How do I ensure that the focused item is visible, after the user does the sort
with thisform.ComboBox1
.EnsureOnSort = .T.
.Columns.Add("Column")
with .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.Columns.Item(0).SortOrder = 1
endwith
|
|
108
|
How do I enlarge the drop down filter window
with thisform.ComboBox1
.FilterBarDropDownHeight = "-320"
with .Columns.Add("Column")
.DisplayFilterButton = .T.
.FilterBarDropDownWidth = "-320"
endwith
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
endwith
|
|
165
|
How do I enlarge or change the size of the control's scrollbars
with thisform.ComboBox1
.ScrollHeight = 18
.ScrollWidth = 18
.ScrollButtonWidth = 18
.ScrollButtonHeight = 18
endwith
|
|
112
|
How do I enable the incremental search feature within a column
with thisform.ComboBox1
.AutoSearch = .T.
with .Columns
.Add("exStartWith").AutoSearch = 0
.Add("exContains").AutoSearch = 1
endwith
with .Items
.DefaultItem = .AddItem("text")
.CellCaption(0,1) = "another text"
endwith
with .Items
.DefaultItem = .AddItem("text")
.CellCaption(0,1) = "another text"
endwith
endwith
|
|
138
|
How do I enable resizing the columns at runtime
with thisform.ComboBox1
.ColumnsAllowSizing = .T.
.MarkSearchColumn = .F.
.HeaderVisible = .F.
.Columns.Add("Column 1")
.Columns.Add("Column 2")
.DrawGridLines = 2
with .Items
.DefaultItem = .AddItem("Item 1")
.CellCaption(0,1) = "Sub Item 1"
endwith
with .Items
.DefaultItem = .AddItem("Item 2")
.CellCaption(0,1) = "Sub Item 2"
endwith
endwith
|
|
351
|
How do I enable resizing all the items at runtime
with thisform.ComboBox1
.ItemsAllowSizing = 1
.DrawGridLines = 1
.Columns.Add("Column")
.Items.AddItem("Item 1")
with .Items
.DefaultItem = .AddItem("Item 2")
.ItemHeight(0) = 48
endwith
.Items.AddItem("Item 3")
endwith
|
|
137
|
How do I enable resizing ( changing the height ) the items at runtime
with thisform.ComboBox1
.ItemsAllowSizing = .T.
.ScrollBySingleLine = .T.
.Columns.Add("Column")
.Items.AddItem("Item 1")
with .Items
.DefaultItem = .AddItem("Item 2")
.ItemHeight(0) = 48
endwith
.Items.AddItem("Item 3")
endwith
|
|
180
|
How do I enable or disable the entire column
with thisform.ComboBox1
.Columns.Add("C1")
.Columns.Add("Disabled").Enabled = .F.
with .Items
.DefaultItem = .AddItem(0)
.CellCaption(0,1) = "0.1"
endwith
with .Items
.DefaultItem = .AddItem(1)
.CellCaption(0,1) = "1.1"
endwith
endwith
|
|
268
|
How do I enable or disable a cell
with thisform.ComboBox1
.Columns.Add("C1")
.Columns.Add("C2")
with .Items
h = .AddItem("Cell 1")
.DefaultItem = h
.CellCaption(0,1) = "Cell 2"
.DefaultItem = h
.CellEnabled(0,1) = .F.
endwith
endwith
|
|
553
|
How do I display the position of the item with 0-padding
with thisform.ComboBox1
.BeginUpdate
.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"
with .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
.AddItem("Item D")
endwith
.EndUpdate
endwith
|
|
349
|
How do I display the icons being selected in the control's label
with thisform.ComboBox1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Columns.Add("Column")
with .Items
.DefaultItem = .AddItem("Image 1")
.CellImage(0,0) = 1
.DefaultItem = .AddItem("Image 2")
.CellImage(0,0) = 2
.DefaultItem = .AddItem("Image 3")
.CellImage(0,0) = 3
endwith
.Object.AssignEditImageOnSelect(0) = .T.
.Value = "Image 2"
endwith
|